﻿Partial Class Controles_ControlImprime
    Inherits System.Web.UI.UserControl
    Public clases(6) As String
    Protected Sub Controles_ControlMaestra_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Var As String
        Var = Request.QueryString("opt")
        Select Case Var
            Case "1"
                clases(1) = "seleccion"
            Case "2"
                clases(2) = "seleccion"
            Case "3"
                clases(3) = "seleccion"
            Case "4"
                clases(4) = "seleccion"
            Case "5"
                clases(5) = "seleccion"
            Case "6"
                clases(6) = "seleccion"
        End Select
    End Sub

   
End Class
